C---------------------------------------------------------
C    TOOLPACK/1    Release: 2.4
C---------------------------------------------------------
C ----------------------------------------------------------------------
C
C       Z T O K W R   -   Interface to token stream file output
C
 
        SUBROUTINE ZTOKWR(TYPE,LEN,STR,TKDESC)
        INTEGER TYPE,LEN,STR(*),TKDESC
 
        SAVE
 
        EXTERNAL ZPUTTK
 
        CALL ZPUTTK(TYPE,LEN,STR,TKDESC)
 
        END
